SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

/****** Objeto:  procedimiento almacenado dbo.wldiccionario_programas    fecha de la secuencia de comandos: 02/11/2005 18:20:21 ******/
CREATE PROCEDURE dbo.wldiccionario_programas

@desde_programa _codigo_largo,
@hasta_programa _codigo_largo

AS



select
	*
from
	wad_programas pro
	join (select 'A' as cd_tipo, 'Abm' as de_tipo
	union
	select 'L', 'Listador'
	union
	select 'C', 'Consultor'
	union
	select 'P', 'Proceso'
	union
	select 'R', 'Rutina') tipos  on tipos.cd_tipo = pro.tp_programa
where
	pro.nm_programa between @desde_programa and @hasta_programa
order by
	pro.nm_subsistema, pro.tp_programa, pro.nm_programa
GO
